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-- DiskKD.Mesa Edited by Sandman on May 12, 1978 2:09 PM 

DIRECTORY 

AllocDefs: FROM "allocdefs" USING [ 

AddSwapStrategy, CantSwap, SwappingProcedure, SwapStrategy], 
AltoDefs: FROM "altodeFs" USING [PageCount, PageSize. wordlength], 
AltoFileDefs: FROM "altof iledefs" USING [KD, SN, vDA], 
BootDefs: FROM "bootdefs" USING [BootFile], 
DirectoryDefs: FROM "directorydef s" USING [DirectoryLookup] , 
DiskDefs: FROM "diskdefs" USING [SetDisk], 
DiskKDDefs: FROM "diskkddef s" . 
ImageDefs: FROM "imagedefs" USING [ 

AddCleanupProcedure, Cleanupltem, CleanupMask, CleanupProcedure], 
imineDefs: FROM "inlinedefs" USING [BITAND, BITNOT, BITOR, BITSHIFT], 
NucleusDefs: FROM "nucleusdef s" , 
SegmentDefs: FROM "segmentdef s" USING [ 

DefaultBase, FileNameError, FileSegmentAddress, FileSegmentHandle, 

MoveFileSegment, NewFileSegment, Read, Swapin, SwapOut, SwapUp, Unlock, 

Write]; 

DEFINITIONS FROM AltoDefs, AltoFileDefs, SegmentDefs; 

DiskKD: PROGRAM 

IMPORTS AllocDefs, BootDefs, DirectoryDefs. DiskDefs, ImageDefs, SegmentDefs 
EXPORTS DiskKDDefs. NucleusDefs - 

BEGIN 

Initial izeDiskKD: PUBLIC PROCEDURE » 
BEGIN 

nameKD: STRING - "DiskDescriptor. "L; 
pages: PageCount; 
IF -DirectoryDefs. DirectoryLookup[@diskKD.file.fp, nameKD, FALSE] 

THEN SIGNAL Fi 1 eNameError[nameKD] ; 
MoveFileSegment[diskKD, DefaultBase, 1]; 
OpenDiskKD[]; 

DiskDefs.SetDisk[@kd.disk]; 
pages ♦- (kd.size+PageSize-l)/PageSize; 
[] ♦- CloseDiskKD[]; 

MoveFileSegment[diskKD, DefaultBase, pages]; 
RETURN 
END; 

OpenDiskKD: PROCEDURE « 
BEGIN 
IF -diskKD.swappedin THEN 

BEGIN SwapIn[diskKD]; 

kd <- FileSegmentAddress[diskKD]; 

kd, changed *- 0; 

END 
ELSE swapKD.proc <- Al locDefs .CantSwap; 
RETURN 
END; 

UpdateDiskKD: PUBLIC PROCEDURE ■ 
BEGIN 

IF diskKD.swappedin 
AND kd.changed#0 THEN 

BEGIN 

diskKD. write ^ TRUE; 

SwapUp[diskKD]; 

diskKD. write <- FALSE; 

kd. changed ^ 0; 

END; 
RETURN 
END; 

CloseDiskKD: PUBLIC PROCEDURE RETURNS [BOOLEAN] - 
BEGIN 

IF -diskKD.swappedin THEN RETURN[FALSE]; 
swapKD.proc ♦- Al locDefs. CantSwap; UpdateDiskKD[]; 
Unlock[diskKD]; SwapOut[diskKD]; 
RETURNfTRUE] 
END; 

DiskKDSwapper : Al locDefs .SwappingProcedure • 
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BEGIN 

RETURN[C1oseDiskKD[]]; 

END; 



CleanupDiskKD: PUBLIC ImageDef s .CleanupProcedure « 
BEGIN 
SELECT why FROM 

Finish, Abort, OutLd ■> [] <- CloseDiskKD[3; 
-- Save -> 

We depend on Makelmage to call CloseDiskKD when 
it has finished allocating the image file pages. 
Logically, it should also call ResetDisk at this 
time, but it can't do that until the Restore. 
-- Restore ■> 

We depend on Makelmage to call InitializeDiskKO 
as soon as the image file starts up so that the 
Real to Virtual disk address map can be set up. 
ENDCASE; 
RETURN 
END; 



AllOnes: WORD « 1777778; 

NewSN: PUBLIC PROCEDURE RETURNS [sn:SN] - 
BEGIN OpenDiskKD[]; 
IF (kd.lastSN.part2 *- kd.lastSN.part2+l) - 

THEN kd.lastSN. parti ♦- kd . 1 astSN.partl+1; 
sn <- kd.lastSN; kd. changed ^ AllOnes; 
swapKD.proc <- DiskKDSwapper; 
RETURN 
END; 

BitAddress: TYPE » RECORD [word:[0. . 7777B] , bi t:[0 . . 17B]]; 

DiskFull: PUBLIC SIGNAL ■ CODE; 

AssignDiskPage: PUBLIC PROCEDURE [da:vDA] 
RETURNS [vDA] - 
BEGIN OPEN InlineDefs; 
onebit: WORD; 
wa: CARDINAL; 
ba: C0..16); 
w; POINTER TO WORD; 
base: BitAddress = L00PH0LE[da+l3; 
baseWa: CARDINAL <- base. word; 
baseBa: CARDINAL <- base. bit; 
OpenDiskKD[]; 

DO ENABLE UNWIND «> swapKD.proc <- DiskKDSwapper; 
FOR wa IN [baseWa. .kd.size) DO 

IF (w <- @kd.table[wa])t » AllOnes THEN 
FOR ba IN [baseBa. .wordlength) DO 
onebit <- BITSHIFT[100000B.-ba]; 
IF BITAND[wt,onebit]«0 THEN 
BEGIN 

wt 4- BITOR[wt, onebit]; 
kd. changed *- AllOnes; 
kd.freePages ^ MAX[kd.f reePages.l]-! ; 
swapKD.proc ♦- DiskKDSwapper; 
RETURN[vDA[wa*wordlength+ba]]; 
END; 
ENDLOOP; 
baseBa *- 0; 
ENDLOOP; 
IF baseWa«0 THEN 
BEGIN 

[] ♦- CloseDiskKD[]; 
SIGNAL DiskFull: 
OpenDiskKD[]; 
END; 
baseWa ♦■ 0; 
ENDLOOP; 
END; 

ReleaseDiskPage: PUBLIC PROCEDURE [v:vDA] «. 
BEGIN OPEN InlineDefs; 
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word: POINTER TO WORD; 

OpenDiskKD[]; 

word ^ @kd.tab1e[L00PH0LE[v,BitAddress].word]; 

wordt ♦- BITAND[wordt, 

BITNOT[BITSHIFT[100000B,-LOOPHOLE[v,BitAddress].bit]]]; 
kd. changed ♦- AllOnes; 
kd.freePages ^ kd.freePages+1; 
swapKD.proc ^ DiskKDSwapper; 
RETURN 
END; 

CountFreeDiskPages: PUBLIC PROCEDURE RETURNS [count: CARDINAL] - 
BEGIN 

OpenDiskKD[]; 
count <- kd.freePages; 
swapKD.proc <- DiskKDSwapper; 
RETURN 
END; 

kd: POINTER TO KD; 
swapKD: AllocDef s.SwapStrategy; 
diskKD: FileSegmentHandle; 
cleanupKD: ImageDefs. Cleanup Item; 

swapKD.proc ♦- AllocDef s .CantSwap; 

CleanupKD. proc <- CleanupDiskKD; 

CleanupKD. mask ♦- ImageDefs. CleanupMask[Finish] + 

ImageDefs .C1eanupMask[Abort] + ImageDefs. C1eanupMask[0utLd]; 
diskKD *- NewFileSegment [Boo tDefs.BootFi1e[Read+Write],DefaunBase,l, Read]; 
AnocDefs,AddSwapStrategy[(§swapKD]; 
ImageDefs. Ad dCleanupProcedu re [0cleanupKD]; 
InitializeDiskKD[]; 

-- Should we support running without a DiskDescriptor? 

END. 



